home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / ST_COOKI.M < prev    next >
Encoding:
Text File  |  1991-02-08  |  265 b   |  15 lines
  1. MODULE ST_Cookie;
  2.  
  3. (* Aus STE mach' ST *)
  4.  
  5. FROM CookieJar IMPORT Machine, GetCookie, ModifyCookie;
  6.  
  7. VAR dummy: BOOLEAN;
  8.     c: LONGCARD;
  9.  
  10. BEGIN
  11.   IF GetCookie (Machine, c) & (c = $10000) THEN
  12.     dummy:= ModifyCookie (Machine, 0)
  13.   END
  14. END ST_Cookie.
  15.